home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 7.st / KAMIKAZE.ARC / ALINE.ASM next >
Encoding:
Assembly Source File  |  1988-11-14  |  1.6 KB  |  134 lines
  1. ; :ts=10
  2.  
  3.     dseg
  4.     public _aline
  5.  
  6.  
  7.     cseg
  8.  
  9.     public _ainit
  10. _ainit:
  11.     move.l A2,-(A7)
  12.     dc.w $a000
  13.     move.l (A7)+,A2
  14.     move.l A0,D0
  15.     rts
  16.  
  17.     public _aput
  18. _aput:
  19.     dc.w $a001
  20.     rts
  21.  
  22.     public _aget
  23. _aget:
  24.     dc.w $a002
  25.     rts
  26.  
  27.  
  28.     public _aaline
  29. _aaline:
  30.     move.l A2,-(A7)
  31.     dc.w $a003
  32.     move.l (A7)+,A2
  33.     rts
  34.  
  35.  
  36.     public _ahline
  37. _ahline:
  38.     move.l A2,-(A7)
  39.     dc.w $a004
  40.     move.l (A7)+,A2
  41.     rts
  42.  
  43.  
  44.     public _acblock
  45. _acblock:
  46.     move.l A2,-(A7)
  47.     dc.w $a005
  48.     move.l (A7)+,A2
  49.     rts
  50.  
  51.  
  52.     public _apoly
  53. _apoly:
  54.     move.l A2,-(A7)
  55.     dc.w $a006
  56.     move.l (A7)+,A2
  57.     rts
  58.  
  59.  
  60.     public _ablit
  61. _ablit:
  62.     movem.l A2/A6,-(A7)
  63.     move.l 12(A7),A6
  64.     dc.w $a007
  65.     movem.l (A7)+,A2/A6
  66.     rts
  67.  
  68.  
  69.  
  70.  
  71.     public _atextblt
  72. _atextblt:
  73.     move.l A2,-(A7)
  74.     dc.w $a008
  75.     movem.l (A7)+,A2
  76.     rts
  77.  
  78.  
  79.     public _ashow_mouse
  80. _ashow_mouse:
  81.     move.l A2,-(A7)
  82.     dc.w $a009
  83.     movem.l (A7)+,A2
  84.     rts
  85.  
  86.  
  87.     public _ahide_mouse
  88. _ahide_mouse:
  89.     move.l A2,-(A7)
  90.     dc.w $a00a
  91.     movem.l (A7)+,A2
  92.     rts
  93.  
  94.     public _atmouse
  95. _atmouse:
  96.     move.l A2,-(A7)
  97.     dc.w $a00b
  98.     movem.l (A7)+,A2
  99.     rts
  100.  
  101.     cseg
  102.     public _vdi
  103.  
  104.     public _v_regf
  105. _v_regf
  106. firstp    set    4+4*4
  107. handle    set    firstp
  108. fontheader set    firstp+2
  109. buffer    set    firstp+6
  110. halfsize    set    firstp+10
  111. vrfregs    reg    a2/a3/d2/d3
  112.     movem.l    vrfregs,-(sp)
  113.     move.l    #_contrl,a2
  114.     move.w    halfsize(sp),18(a2)
  115.     move.l    buffer(sp),14(a2)
  116.     move.l    fontheader(sp),20(a2)
  117.     move.w    handle(sp),12(a2)
  118.     move.w    #0,2(a2)    ;number of vertices
  119.     move.w    #1,6(a2)    ;length of intin array
  120.     move.w    #119,0(a2) ;VDI function opcode
  121.     move.l    #_intin,a2
  122.     move.w    #0,(a2)    ;reserved (always 0)
  123.     jsr    _vdi
  124. endi
  125.     movem.l    (sp)+,vrfregs
  126.     rts
  127.  
  128.     dseg
  129.     public _contrl
  130.     public _intin
  131.  
  132.  
  133.  
  134.